home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis411.d64 / .heckenschuetze< (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  6KB  |  155 lines
  1. 100 G=1024:H=55296:S=54272:DIMS%(2,60):POKE649,1:POKE650,128:GOTO302
  2. 101 FORJ=0TO24:POKES+J,0:NEXT:POKES+24,15:POKES,50:POKES+1,4:POKES+6,240
  3. 102 PRINT"[147][144]":A=G-1:B=H-1:SU=0:X=3:XX=3:Y=3:YY=3:TI$="000000"
  4. 103 INPUT"SCHWIERIGKEITSGRAD (1-10)";L$:L=VAL(L$):L=INT(L)
  5. 104 IFL<0ORL>10THENPRINT"[145][145]":GOTO103
  6. 110 POKE53281,1:FORJ=1TO209:READN:READC:FORK=1TON:POKEA+K,160:POKEB+K,C:NEXT:A=A+N
  7. 111 B=B+N:NEXT:FORK=1TO60:READS%(0,K):NEXT
  8. 112 FORK=1TO30-L*2:J=INT(RND(1)*61):S%(1,J)=1:NEXT
  9. 120 FORJ=1TO60
  10. 121 IFS%(1,J)=0THENSU=SU+1
  11. 122 NEXT
  12. 123 POKEG+X+40*Y,219
  13. 124 SP=INT(RND(1)*60)+1
  14. 125 IFS%(1,SP)=1THEN129
  15. 126 S%(2,SP)=TI
  16. 127 POKEG+S%(0,SP),174:POKES+4,129:FORK=1TO30:NEXT:POKES+4,128:POKEG+S%(0,SP),160
  17. 128 SS=SS+1
  18. 129 T=TI
  19. 130 GETA$
  20. 131 IFA$=CHR$(32)THEN140
  21. 132 IFA$="Z"THENXX=XX-1
  22. 133 IFA$="X"THENXX=XX+1
  23. 134 IFXX<0THENXX=0
  24. 135 IFA$=CHR$(17)THENYY=YY-1
  25. 136 IFA$=CHR$(29)THENYY=YY+1
  26. 137 IFYY<0THENYY=0
  27. 138 IFYY>24THENYY=24
  28. 139 POKEG+X+40*Y,160:X=XX:Y=YY:POKEG+X+40*Y,219:GOTO146
  29. 140 Z=X+40*Y:POKE198,0
  30. 141 POKES+1,2:FORJ=1TO60
  31. 142 POKES+4,129
  32. 143 IFS%(0,J)=ZANDTI-S%(2,J)<500-46*LTHENS%(1,J)=1:SN=SN+1
  33. 144 POKES+4,128:POKES+1,3:NEXT
  34. 145 IFSN=SUTHEN190
  35. 146 IFTI-T>35-L*2THEN129
  36. 147 IFSS<150THEN124
  37. 148 GOSUB300:PRINT""
  38. 150 PRINTTAB(5)"DU WURDEST GETROFFEN"
  39. 155 PRINT"ABER DU HAST "SN;" MAL GETROFFEN"
  40. 156 PRINTTAB(13)"DRUECK SPACE":GOSUB900
  41. 160 GOSUB300:PRINT""
  42. 164 PRINTTAB(10)"SPIEL                [1]"
  43. 165 PRINTTAB(10)"SPIEL ERKLAERUNG     [2]"
  44. 166 PRINTTAB(10)"TASTENBELEGUNG       [3]"
  45. 167 PRINTTAB(10)"SPIEL BEENDEN        [4]"
  46. 170 POKE198,0:WAIT198,1:GETE$
  47. 171 IFE$="1"THEN180
  48. 172 IFE$="2"THEN350
  49. 173 IFE$="3"THEN410
  50. 174 IFE$="4"THEN5000
  51. 175 GOTO170
  52. 180 FORJ=1TO60:S%(1,J)=0:NEXT:RESTORE:POKE53280,14:POKE53281,6:SS=0:SN=0:PRINT"[147]":GOTO101
  53. 190 PRINT"[147][144]":POKE53280,5:POKE53281,15
  54. 195 PRINT"GUT GEMACHT"
  55. 199 PRINT"DU HAST ALLE ":SU;" HECKENSCHUETZEN GETROFFEN":GOTO161
  56. 200 DATA146,6,2,2,2,6,21,2,34,6,4,2,1,6,1,2,33,6,7,2,9,6,5,11,5,6,1,5,11,6
  57. 201 DATA10,2,3,6,2,5,3,6,6,11,4,6,2,5,2,6,1,13,8,6,1,2,2,0,2,2,2,0,1,2,2,6
  58. 202 DATA5,5,2,6,7,11,2,6,3,5,1,6,3,13,7,6,8,2,2,6,7,5,8,11,1,6,4,5,3,13,7,6
  59. 203 DATA8,2,2,6,7,5,7,2,2,6,4,5,3,13,7,6,1,2,2,0,2,2,2,0,1,2,2,6,7,5,1,2
  60. 204 DATA2,0,1,2,2,0,1,2,2,6,4,5,3,13,4,6,1,2,2,6,8,2,2,6,7,5,1,2,2,0,1,2
  61. 205 DATA2,0,1,2,2,6,3,5,5,13,2,6,3,2,1,6,8,2,2,6,7,5,7,2,1,6,4,5
  62. 206 DATA5,13,1,6,2,2,1,0,3,2,2,0,2,2,2,0,1,2,3,6,6,5,7,2,1,6,4,5,5,13,1,6
  63. 207 DATA13,2,3,6,5,5,1,6,1,2,2,0,1,2,2,0,1,2,1,6,4,5,5,13,1,6,1,2,1,0,1,2
  64. 208 DATA1,0,9,2,5,6,2,9,2,6,1,2,2,0,1,2,2,0,1,2,3,6,2,5,5,13,1,6,6,2,2,0
  65. 209 DATA2,2,2,0,1,2,5,6,2,9,2,6,7,2,4,6,1,9,2,6,1,9,3,6,18,2,2,9,9,2,4,6
  66. 210 DATA1,9,2,6,1,9,3,6,18,2,2,9,4,2,2,0,3,2,4,8,1,9,2,8,1,9,3,8,1,2,2,0
  67. 211 DATA5,2,2,0,8,2,2,9,4,2,2,0,3,2,4,8,1,9,2,8,1,9,3,8,1,2,2,0,5,2,2,0
  68. 212 DATA8,2,2,9,4,2,2,0,3,2,4,8,1,9,2,8,1,9,3,8,1,2,2,0,5,2,2,0,8,2,2,9
  69. 213 DATA2,2,36,7,2,9,82,7
  70. 214 DATA189,202,223,231,304,305,308,309,330,355,375,398,411,424,425,428,429
  71. 215 DATA434,445,478,481,502,530,533,540,544,545,548,549,555,605,615,619,621
  72. 216 DATA641,642,645,664,665,668,669,673,679,728,735,755,772,779,787,798
  73. 217 DATA802,803,813,826,850,860,867,915,927,988
  74. 300 PRINT"[147][156]":POKE53280,0:POKE53281,0
  75. 301 PRINT"             HECKENSCHUETZEN           [146][159]" :RETURN
  76. 302 GOSUB300:PRINT""
  77. 303 PRINTTAB(16)"V O N[154]"
  78. 304 PRINTTAB(12)"KARLHEINZ HERPEL[149]"
  79. 305 PRINTTAB(11)"COPYRIGHT (C) 1985"
  80. 306 PRINTTAB(13)"DRUECK SPACE":GOSUB900:GOTO160
  81. 350 GOSUB300:PRINT""
  82. 351 PRINTTAB(3)"EIN SCHARFES AUGE UND GENAUES"
  83. 352 PRINTTAB(3)"ZIELEN SIND DIE WICHTIGSTEN VORAUS-"
  84. 353 PRINTTAB(3)"SETZUNGEN, UM DIE HECKENSCHUETZEN"
  85. 354 PRINTTAB(3)"ZU SCHLAGEN. DU SELBST SITZT IN"
  86. 355 PRINTTAB(3)"EINEM GEPANZERTEN FAHRZEUG,DAS"
  87. 356 PRINTTAB(3)"NEBEN EINER HAEUSERREIHE PARKT."
  88. 357 PRINTTAB(3)"AUS DEN FENSTER- UND TUEROEFFNUNGEN"
  89. 358 PRINTTAB(3)"WERDEN VON DEN HECKENSCHUETZEN"
  90. 359 PRINTTAB(3)"SCHUESSE AUF DICH ABGEFEUERT."
  91. 360 PRINTTAB(13)"DRUECK RETURN":GOSUB900
  92. 370 GOSUB300:PRINT""
  93. 371 PRINTTAB(3)"SOBALD EINER DER SCHUETZEN"
  94. 372 PRINTTAB(3)"ABDRUECKT, SIEHST DU AM GEWEHR-"
  95. 373 PRINTTAB(3)"LAUF DES SCHUETZEN EINEN FEUERBLITZ"
  96. 374 PRINTTAB(3)"AUFLEUCHTEN.HECKENSCHUETZEN"
  97. 375 PRINTTAB(3)"SIND ALLERDINGS HINTERHAELTIG"
  98. 376 PRINTTAB(3)"UND AUESSERST SCHNELL.VERSUCHE,"
  99. 377 PRINTTAB(3)"DEINE WAFFE SCHNELL AUF DEN"
  100. 378 PRINTTAB(3)"GEGENER ZU RICHTEN UND SCHIESSE,"
  101. 379 PRINTTAB(3)"BEVOR DER FEIND VERSCHWINDET."
  102. 380 PRINTTAB(13)"DRUECK RETURN":GOSUB900
  103. 390 GOSUB300:PRINT""
  104. 391 PRINTTAB(3)"IRGENDWANN WIRD EINE KUGEL"
  105. 392 PRINTTAB(3)"ABER DEINEN PANZER DURCHSTOSSEN"
  106. 393 PRINTTAB(3)"UND DU MUSST DEN KAMPF AUFGEBEN."
  107. 394 PRINTTAB(3)"ZUVOR SOLLTE ES DEIN ZIEL SEIN,"
  108. 395 PRINTTAB(3)"MOEGLICHST VIELE FEINDE ZU"
  109. 396 PRINTTAB(3)"ERLEDIGEN.MACH ZUERST JAGD"
  110. 397 PRINTTAB(3)"AUF DIE HECKENSCHUETZEN,DIE"
  111. 398 PRINTTAB(3)"HINTER DEN FENSTERN UND TUEREN"
  112. 399 PRINTTAB(3)"LAUERN."
  113. 400 PRINTTAB(13)"DRUECK RETURN":GOSUB900:GOTO430
  114. 410 GOSUB300:PRINT""
  115. 411 PRINTTAB(3)"EIN WEISSES KREUS KENNZEICHNET"
  116. 412 PRINTTAB(3)"DEIN GEWEHR.ES BEFINDET SICH"
  117. 413 PRINTTAB(3)"BEI SPIELBEGINN OBEN LINKS."
  118. 414 PRINTTAB(3)"FOLGENDE TASTEN STEHEN BEREIT:"
  119. 415 PRINTTAB(3)" CURSOR AUF/AB       [146] = AUF"
  120. 416 PRINTTAB(3)" CURSOR LINKS/RECHTS [146] = AB"
  121. 417 PRINTTAB(3)" TASTE Z             [146] = LINKS"
  122. 418 PRINTTAB(3)" TASTE X             [146] = RECHTS"
  123. 419 PRINTTAB(3)" SPACE               [146] = FEUER"
  124. 420 PRINTTAB(13)"DRUECK RETURN":GOSUB900:GOTO160
  125. 430 GOSUB300:PRINT""
  126. 431 PRINTTAB(3)"DIE TASTEN HABEN DAUERFUNKTION."
  127. 432 PRINTTAB(3)"DRUECKE EINE DER TASTEN UND"
  128. 433 PRINTTAB(3)"DEIN GEWEHR BEWEGT SICH UEBER"
  129. 434 PRINTTAB(3)"DEN BILDSCHIRM.DIE RICHTUNG"
  130. 435 PRINTTAB(3)"HAENGT VON DER JEWEILS GE-"
  131. 436 PRINTTAB(3)"DRUECKTEN TASTE AB. SOBALD DU"
  132. 437 PRINTTAB(3)"EINEN HECKENSCHUETZEN AUSGEMACHT"
  133. 438 PRINTTAB(3)"HAST,RICHTE DEINE WAFFE AUF IHN."
  134. 439 PRINTTAB(13)"DRUECK RETURN":GOSUB900
  135. 440 GOSUB300:PRINT""
  136. 441 PRINTTAB(3)"EIN EINMALIGES DRUECKEN DER"
  137. 442 PRINTTAB(3)"S P A C E  - TASTE UND DEIN"
  138. 443 PRINTTAB(3)"MASCHINENGEWEHR RATTERT LOS."
  139. 444 PRINTTAB(3)"FALLS DU RECHTZEITIG ABGEDRUECKT"
  140. 445 PRINTTAB(3)"HAST, WIRD DICH DIESER SCHUETZE"
  141. 446 PRINTTAB(3)"NICHT MEHR BEDROHEN.DIE ANZAHL"
  142. 447 PRINTTAB(3)"DER SCHUETZEN IST VOM ZUFALL"
  143. 448 PRINTTAB(3)"ABHAENGIG;DRUM BEEILE DICH UND"
  144. 449 PRINTTAB(3)"ZIELE GUT."
  145. 450 PRINTTAB(13)"DRUECK RETURN":GOSUB900:GOTO160
  146. 900 POKE198,0:WAIT198,1:GETE$
  147. 901 IFE$=CHR$(32)THENRETURN
  148. 5000 PRINT"[147]":POKE53280,0:POKE53281,0
  149. 5001 PRINTTAB(8)"PROGRAMM BEENDEN       [1]"
  150. 5002 PRINTTAB(8)"PROGRAMM WIEDERHOLEN   [2]"
  151. 5004 POKE198,O:WAIT198,1:GETE$
  152. 5005 IFE$="1"THENSYS64738
  153. 5006 IFE$="2"THEN160
  154. 5008 GOTO5004
  155.